Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/LaserWriter Training/LaserWriter Fundamentals/Glossary/background_12438.txt

Text File | 1990-08-24 | 4.9 KB | 257 lines

-- background: 12438 from stack: in
-- bmap block id: 13283
-- flags: 0000
-- background id: 0
-- name: Main
----- HyperTalk script -----
on findLong
  repeat with i = number of this cd+1 to number of cards
    if length (fld 2 of cd i) > 400 then
      go cd i
      exit findLong
    end if
  end repeat
end findLong

on checkit
  doMenu "Paste Field"
  choose browse tool
  click at loc of cd fld "SGW"
  if length(fld 2) > 400 then
    set height of cd fld 1 to 300
    set top of cd fld 1 to 20
  end if
end checkit

on goDown
  push card
  lock screen
  go cd (short name of target)
  unlock screen with visual dissolve
end goDown



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=450 top=317 right=342 bottom=470
-- title width / last selected line: 0
-- icon id / first selected line: 20133 / 20133
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
  goPrev
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=317 right=342 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 21558 / 21558
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  goNext
end mouseUp



-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=149 top=0 right=24 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 10240
-- line height: 20
-- part name: cardTitle


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=149 top=62 right=290 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 208
-- text size: 14
-- style flags: 0
-- line height: 16
-- part name: cardText
----- HyperTalk script -----
on mouseUp
  handleFieldClick
end mouseUp


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=149 top=34 right=56 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 20
-- part name: subTitle


-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=488 top=317 right=342 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 20842 / 20842
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  lock screen
  pop card
  unlock screen with visual dissolve
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=328 top=317 right=342 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 26316 / 26316
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat
    pop card into dest
    if "Glossary" is not in dest then
      set lockmessages to true
      go dest
      exit repeat
    end if
  end repeat
  exitStack
  unlock screen with visual dissolve
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=359 top=317 right=342 bottom=387
-- title width / last selected line: 0
-- icon id / first selected line: 9542 / 9542
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Help
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat
    pop card into dest
    if "Glossary" is not in dest then
      set lockmessages to true
      go dest
      exit repeat
    end if
  end repeat
  goHelp
  openCard
  unlock screen with visual dissolve
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=390 top=317 right=342 bottom=418
-- title width / last selected line: 0
-- icon id / first selected line: 16490 / 16490
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Menu
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat
    pop card into dest
    if "Glossary" is not in dest then
      set lockmessages to true
      go dest
      exit repeat
    end if
  end repeat
  menu
  openCard
  unlock screen with visual dissolve
end mouseUp



-- part 34 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=421 top=317 right=342 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 17501 / 17501
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Map
----- HyperTalk script -----
on mouseUp
  lock screen
  repeat
    pop card into dest
    if "Glossary" is not in dest then
      set lockmessages to true
      go dest
      exit repeat
    end if
  end repeat
  map
  openCard
  unlock screen with visual dissolve
end mouseUp